﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<card title="江湖银行">
<p>
<%
num=clng(request("num"))
dim myid
myid=qingtian.nid
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select yz,jk from wupin where cstr(ids)="&myid
rs.open strsQL,liao,1,2
jk=clng(rs("jk"))
if jk<num then
Response.Write "您银行里没有这么多银子呀<br/>---------<br/><a href='bankp.asp?cc="&cc&"&amp;ve="&ve&"'>返回重写</a><br/><a href='index.asp?cc="&cc&"&amp;ve="&ve&"'>我的江湖</a><br/>"
else
rs("yz")=rs("yz")+num
rs("jk")=rs("jk")-num
rs.update
  rs.Close
	Set rs=Nothing
%>
提取银子成功!<br/>
---------<br/>
<a href="yz.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖银号</a><br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">我的江湖</a><br/>
<%end if%>
<%qingtian.shuchu%>